home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / textbo_1 / frm0.frm next >
Text File  |  1999-07-28  |  3KB  |  103 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "cd tray open/close"
  4.    ClientHeight    =   930
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   3240
  8.    LinkTopic       =   "Form1"
  9.    MaxButton       =   0   'False
  10.    ScaleHeight     =   930
  11.    ScaleWidth      =   3240
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.CommandButton Command1 
  14.       Caption         =   "&Info"
  15.       Height          =   615
  16.       Left            =   1680
  17.       TabIndex        =   2
  18.       Top             =   120
  19.       Width           =   1215
  20.    End
  21.    Begin VB.CommandButton cmdClose 
  22.       Caption         =   "&Close"
  23.       Height          =   615
  24.       Left            =   240
  25.       TabIndex        =   1
  26.       Top             =   120
  27.       Width           =   1215
  28.    End
  29.    Begin VB.CommandButton cmdOpen 
  30.       Caption         =   "&Open"
  31.       Height          =   615
  32.       Left            =   240
  33.       TabIndex        =   0
  34.       Top             =   120
  35.       Width           =   1215
  36.    End
  37. End
  38. Attribute VB_Name = "Form1"
  39. Attribute VB_GlobalNameSpace = False
  40. Attribute VB_Creatable = False
  41. Attribute VB_PredeclaredId = True
  42. Attribute VB_Exposed = False
  43. Private Sub Command1_Click()
  44. frmAbout.Show
  45. End Sub
  46.  
  47. Private Sub Form_Load()
  48. SendMCIString "close all", False
  49. cmdClose.Visible = False
  50. If (App.PrevInstance = True) Then
  51.     End
  52. End If
  53. fCDLoaded = False
  54. If (SendMCIString("open cdaudio alias cd wait shareable", True) = False) Then
  55.     End
  56. End If
  57. SendMCIString "set cd time format tmsf wait", True
  58. End Sub
  59.  
  60. Private Sub Form_Unload(Cancel As Integer)
  61. 'Close all MCI devices opened by this program
  62. SendMCIString "close all", False
  63. End Sub
  64. Private Function SendMCIString(cmd As String, fShowError As Boolean) As Boolean
  65. Static rc As Long
  66. Static errStr As String * 200
  67.  
  68. rc = mciSendString(cmd, 0, 0, hWnd)
  69. If (fShowError And rc <> 0) Then
  70.     mciGetErrorString rc, errStr, Len(errStr)
  71.     MsgBox errStr
  72. End If
  73. SendMCIString = (rc = 0)
  74. End Function
  75. ' Open the CD Tray
  76. Private Sub cmdopen_Click()
  77. SendMCIString "set cd door open", True
  78. cmdClose.Visible = True
  79. cmdClose.Default = True
  80. End Sub
  81. Private Sub cmdclose_click()
  82. 'Close the CD Tray
  83. ' This Sub will also show the "CLOSE"
  84. 'button instead of the "OPEN" button.
  85. SendMCIString "set cd door closed", True
  86. cmdClose.Visible = False
  87. cmdClose.Default = False
  88. cmdOpen.Default = True
  89. End Sub
  90. '**************************************
  91. 'CD Rom Open/Close
  92. 'by: heresy on july 28, 1999
  93. 'created with visual basic 6.0
  94. 'compatible with: unknown
  95. 'have fun. and once again: PLEASE help
  96. 'us figure out the multiple drive situation.
  97. '----
  98. '~heresy
  99.  
  100.  
  101.  
  102.  
  103.